with System;

package body FT2.Sizes is

   --------------
   -- New_Size --
   --------------

   procedure New_Size
     (Face : FT_Face;
      Size : out FT_Size;
      Error : out FT_Error)
   is
      function Internal
        (Face : FT_Face;
         Size : System.Address)
         return FT_Error;
      pragma Import (C, Internal, "FT_New_Size");
   begin
      Error := Internal (Face, Size'Address);
   end New_Size;

   ---------------
   -- Done_Size --
   ---------------

   procedure Done_Size
     (Size : in out FT_Size;
      Error : out FT_Error)
   is
      function Internal
        (Size : System.Address)
         return FT_Error;
      pragma Import (C, Internal, "FT_Done_Size");
   begin
      Error := Internal (Size'Address);
   end Done_Size;

   -------------------
   -- Activate_Size --
   -------------------

   procedure Activate_Size
     (Size : FT_Size;
      Error : out FT_Error)
   is
      function Internal
        (Size : System.Address)
         return FT_Error;
      pragma Import (C, Internal, "FT_Activate_Size");
   begin
      Error := Internal (Size'Address);
   end Activate_Size;

end FT2.Sizes;
